inherited fmAddServices: TfmAddServices
  Left = 459
  Top = 178
  Width = 1036
  Height = 663
  Caption = 'fmAddServices'
  Constraints.MinHeight = 663
  Constraints.MinWidth = 1036
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 609
    Width = 1028
  end
  inherited Panel1: TPanel
    Width = 1028
    Height = 33
    TabOrder = 1
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 861
      Top = 4
    end
    inherited BitBtn2: TBitBtn
      Left = 949
      Top = 4
    end
  end
  object dbgSevices: TcxGrid [2]
    Left = 6
    Top = 66
    Width = 1022
    Height = 349
    Align = alClient
    TabOrder = 0
    LookAndFeel.Kind = lfStandard
    object tvServices: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      OnCellDblClick = tvServicesCellDblClick
      DataController.DataSource = dsServType
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.CellEndEllipsis = True
      OptionsView.NavigatorOffset = 10
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvServicesSTNAME: TcxGridDBColumn
        DataBinding.FieldName = 'STNAME'
        Width = 20
      end
      object tvServicesSTNAME_CLIENT: TcxGridDBColumn
        Caption = #1053#1072#1079#1074'. '#1076#1083#1103' '#1082#1083#1080#1077#1085#1090#1086#1074
        DataBinding.FieldName = 'STNAME_CLIENT'
        Width = 20
      end
      object tvServicesSTPODR: TcxGridDBColumn
        Caption = #1055#1086#1076#1088#1072#1079#1076'.'
        DataBinding.FieldName = 'STPODR'
        PropertiesClassName = 'TcxCheckComboBoxProperties'
        Properties.EditValueFormat = cvfStatesString
        Properties.Items = <
          item
            Description = #1044#1077#1090#1089#1072#1076
          end
          item
            Description = #1053#1072#1095'. '#1075#1080#1084#1085'.'
          end
          item
            Description = #1057#1088'. '#1096#1082#1086#1083#1072
          end
          item
            Description = #1057#1090#1072#1088#1096'. '#1096#1082#1086#1083#1072
          end
          item
            Description = #1051#1072#1075#1077#1088#1100
          end>
        Width = 20
      end
      object tvServicesSDNAME: TcxGridDBColumn
        Caption = #1045#1076'. '#1080#1079#1084#1077#1088'.'
        DataBinding.FieldName = 'SDNAME'
        Width = 20
      end
      object tvServicesSTTYPE: TcxGridDBColumn
        Caption = #1058#1080#1087' '#1091#1089#1083#1091#1075#1080
        DataBinding.FieldName = 'STTYPE'
        PropertiesClassName = 'TcxRadioGroupProperties'
        Properties.Items = <
          item
            Caption = #1056#1072#1079#1086#1074#1072#1103
            Value = 0
          end
          item
            Caption = #1054#1089#1085#1086#1074#1085'.'
            Value = 1
          end
          item
            Caption = #1044#1086#1087#1086#1083#1085#1080#1090'.'
            Value = 2
          end
          item
            Caption = #1042#1089#1090#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
            Value = 3
          end>
        SortIndex = 0
        SortOrder = soAscending
        Width = 20
      end
      object tvServicesSTPERIODOPLATY: TcxGridDBColumn
        Caption = #1055#1077#1088'. '#1086#1087#1083#1072#1090#1099
        DataBinding.FieldName = 'STPERIODOPLATY'
        PropertiesClassName = 'TcxRadioGroupProperties'
        Properties.Items = <
          item
            Caption = #1052#1077#1089#1103#1094
            Value = 0
          end
          item
            Caption = #1058#1088#1080#1084#1077#1089#1090#1088
            Value = 1
          end>
        Width = 20
      end
      object tvServicesSTISARCHIVE: TcxGridDBColumn
        Caption = #1040#1088#1093#1080#1074
        DataBinding.FieldName = 'STISARCHIVE'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ReadOnly = False
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 20
      end
      object tvServicesSTTARIF: TcxGridDBColumn
        DataBinding.FieldName = 'STTARIF'
        Width = 20
      end
      object tvServicesSTDATEBEGIN: TcxGridDBColumn
        DataBinding.FieldName = 'STDATEBEGIN'
        PropertiesClassName = 'TcxDateEditProperties'
        Width = 20
      end
      object tvServicesSTDATEEND: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096'.'
        DataBinding.FieldName = 'STDATEEND'
        PropertiesClassName = 'TcxDateEditProperties'
        Width = 20
      end
      object tvServicesSTNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090'.'
        DataBinding.FieldName = 'STNOTE'
        Width = 20
      end
      object tvServicesTREE_NAME: TcxGridDBColumn
        Caption = #1058#1080#1087' '#1074' '#1076#1077#1088#1077#1074#1077
        DataBinding.FieldName = 'TREE_NAME'
        Width = 20
      end
      object tvServicesSTSYSPODR: TcxGridDBColumn
        Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1082' '#1088#1072#1089#1087#1088'.'
        DataBinding.FieldName = 'STSYSPODR'
        PropertiesClassName = 'TcxRadioGroupProperties'
        Properties.Items = <
          item
            Caption = #1054#1089#1085#1086#1074#1085'.'
            Value = 0
          end
          item
            Caption = #1044#1086#1087#1086#1083#1085#1080#1090'.'
            Value = 1
          end
          item
            Caption = #1053#1077#1090' '#1087#1088#1080#1074#1103#1079#1082#1080
            Value = 2
          end>
        Width = 20
      end
      object tvServicesSTISCALCGRAF: TcxGridDBColumn
        Caption = #1043#1088#1072#1092#1080#1082
        DataBinding.FieldName = 'STISCALCGRAF'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 20
      end
      object tvServicesSTMAXCOUNT: TcxGridDBColumn
        Caption = #1055#1088#1077#1076'. '#1082#1086#1083#1080#1095'. '#1091#1089#1083#1091#1075
        DataBinding.FieldName = 'STMAXCOUNT'
        Width = 22
      end
      object tvServicesSTTIMEBEGIN: TcxGridDBColumn
        Caption = #1042#1088#1077#1084#1103' '#1085#1072#1095#1072#1083#1072
        DataBinding.FieldName = 'STTIMEBEGIN'
        Width = 20
      end
      object tvServicesSTTIMEEND: TcxGridDBColumn
        Caption = #1042#1088#1077#1084#1103' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        DataBinding.FieldName = 'STTIMEEND'
        Width = 25
      end
      object tvServicesSTTIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
        DataBinding.FieldName = 'STTIMEENTER'
        Width = 26
      end
      object tvServicesSTTIMEEDIT: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1077#1076'.'
        DataBinding.FieldName = 'STTIMEEDIT'
        Width = 23
      end
      object tvServicesSTUSERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088
        DataBinding.FieldName = 'STUSERENTER'
        Width = 20
      end
      object tvServicesSTUSEREDIT: TcxGridDBColumn
        Caption = #1056#1077#1076#1072#1082#1090#1086#1088
        DataBinding.FieldName = 'STUSEREDIT'
        Width = 35
      end
      object tvServicesTABEL_NAME: TcxGridDBColumn
        Caption = #1059#1089#1083#1091#1075#1072' '#1076#1083#1103' '#1090#1072#1073#1077#1083#1103
        DataBinding.FieldName = 'TABEL_NAME'
        Width = 69
      end
      object tvServicesPROBA: TcxGridDBColumn
        Caption = #1055#1088#1086#1073#1085#1072#1103
        DataBinding.FieldName = 'PROBA'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Options.Editing = False
        Width = 81
      end
      object tvServicesLL_LIST: TcxGridDBColumn
        Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1082' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103#1084
        DataBinding.FieldName = 'LL_LIST'
        Options.Editing = False
        Width = 69
      end
      object tvServicesSTDURATION: TcxGridDBColumn
        Caption = #1055#1088#1086#1076#1086#1083#1078' '#1079#1072#1085'. '#1074' '#1084#1080#1085'.'
        DataBinding.FieldName = 'STDURATION'
        Options.Editing = False
      end
      object tvServicesSTWEEKCOUNT: TcxGridDBColumn
        Caption = #1050#1086#1083'. '#1079#1072#1085'. '#1074' '#1085#1077#1076#1077#1083#1102
        DataBinding.FieldName = 'STWEEKCOUNT'
        Options.Editing = False
      end
      object tvServicesIS_NOT_IN_TERRITORY: TcxGridDBColumn
        Caption = #1053#1077' '#1085#1072' '#1090#1077#1088#1088#1080#1090'.'
        DataBinding.FieldName = 'IS_NOT_IN_TERRITORY'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = tvServices
    end
  end
  object ToolBar1: TToolBar [3]
    Left = 0
    Top = 33
    Width = 1028
    Height = 33
    AutoSize = True
    BorderWidth = 2
    EdgeOuter = esNone
    Images = DMInv.ilActive
    TabOrder = 3
    TabStop = True
    Transparent = True
    object tbInsertK: TToolButton
      Left = 0
      Top = 2
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1091#1089#1083#1091#1075#1091' '#1074' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082
      ImageIndex = 30
      ParentShowHint = False
      ShowHint = True
      OnClick = tbInsertKClick
    end
    object tb_makeCopy: TToolButton
      Left = 23
      Top = 2
      Hint = #1050#1083#1086#1085#1080#1088#1086#1074#1072#1090#1100' '#1091#1089#1083#1091#1075#1091
      Caption = 'tb_makeCopy'
      ImageIndex = 32
      ParentShowHint = False
      ShowHint = True
      OnClick = tb_makeCopyClick
    end
    object tbDeleteK: TToolButton
      Left = 46
      Top = 2
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1091#1089#1083#1091#1075#1091' '#1080#1079' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082#1072
      ImageIndex = 29
      ParentShowHint = False
      ShowHint = True
      OnClick = tbDeleteKClick
    end
    object tbEditK: TToolButton
      Left = 69
      Top = 2
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1091#1089#1083#1091#1075#1091' '#1074' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082#1077
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = tbEditKClick
    end
    object ToolButton1: TToolButton
      Left = 92
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object rbAll: TcxRadioButton
      Left = 100
      Top = 2
      Width = 60
      Height = 22
      Caption = #1042#1089#1077
      TabOrder = 0
      OnClick = rbAllClick
    end
    object rbReal: TcxRadioButton
      Left = 160
      Top = 2
      Width = 91
      Height = 22
      Caption = #1040#1082#1090#1091#1072#1083#1100#1085#1099#1077
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = rbAllClick
    end
    object rbArchive: TcxRadioButton
      Left = 251
      Top = 2
      Width = 74
      Height = 22
      Caption = #1040#1088#1093#1080#1074#1085#1099#1077
      TabOrder = 2
      OnClick = rbAllClick
    end
    object ToolButton2: TToolButton
      Left = 325
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object cbPodr: TcxComboBox
      Left = 333
      Top = 2
      Properties.Items.Strings = (
        #1044#1077#1090#1089#1072#1076
        #1053#1072#1095'. '#1075#1080#1084#1085#1072#1079#1080#1103
        #1057#1088#1077#1076#1085#1103#1103' '#1096#1082#1086#1083#1072
        #1057#1090#1072#1088#1096#1072#1103' '#1096#1082#1086#1083#1072
        #1051#1072#1075#1077#1088#1100
        #1042#1089#1077)
      Properties.OnCloseUp = rbAllClick
      TabOrder = 3
      Text = #1044#1077#1090#1089#1072#1076
      Width = 139
    end
    object tb_GridColumns: TToolButton
      Left = 472
      Top = 2
      Caption = 'tb_GridColumns'
      ImageIndex = 34
      OnClick = tb_GridColumnsClick
    end
  end
  object cxSplitter2: TcxSplitter [4]
    Left = 0
    Top = 66
    Width = 6
    Height = 349
    Control = dbgSevices
  end
  object Panel3: TPanel [5]
    Left = 0
    Top = 415
    Width = 1028
    Height = 194
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 5
    object Label5: TLabel
      Left = 1
      Top = 1
      Width = 1026
      Height = 13
      Align = alTop
      Caption = #1054#1087#1080#1089#1072#1085#1080#1077' '#1091#1089#1083#1091#1075#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cxDBMemo1: TcxDBMemo
      Left = 1
      Top = 14
      Align = alClient
      DataBinding.DataField = 'STDESCR'
      DataBinding.DataSource = dsServType
      ParentFont = False
      Properties.ScrollBars = ssVertical
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.TextStyle = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 0
      Height = 179
      Width = 1026
    end
  end
  inherited dlgDS: TDataSource
    Left = 128
  end
  object dsServType: TDataSource
    DataSet = qServType
    Left = 248
    Top = 16
  end
  object qServType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BeforePost = qServTypeBeforePost
    CachedUpdates = True
    SQL.Strings = (
      'SELECT ST.*, SD.SDNAME,'
      '    CASE ST.STPODRTYPE'
      '        WHEN 0 THEN '#39'Aaonaa'#39
      '        WHEN 1 THEN '#39'Ia?. aeiiacey'#39
      '        WHEN 2 THEN '#39'N?. oeiea'#39
      '        WHEN 3 THEN '#39'Noa?. oeiea'#39
      '        WHEN 4 THEN '#39'Eaaa?u'#39
      
        '    END AS PODR, SD1.SDNAME AS tree_name, SD2.SDNAME AS tabel_na' +
        'me,'
      '    IIF(ST.STSDIDDOPUSL IS NOT NULL, 1, 0) AS proba, ll.ll_list'
      'FROM SERVICES_TYPE ST'
      'LEFT OUTER JOIN SYS_DIC Sd ON SD.SDID = ST.STEDIZMER'
      'LEFT OUTER JOIN SYS_DIC Sd1 ON SD1.SDID = ST.SDID'
      'LEFT OUTER JOIN SYS_DIC Sd2 ON SD2.SDID = ST.STSDIDTABEL'
      'LEFT OUTER JOIN'
      '('
      'SELECT SPL.STID,  LIST(SD.SDNAME, '#39', '#39') AS ll_list'
      'FROM SERV_PODR_LINK SPL'
      'INNER JOIN SYS_DIC SD ON Sd.SDID = SPL.SDID'
      'GROUP BY 1'
      ') AS ll on ll.stid = ST.STID'
      'WHERE  ST.STISDELETE IS NULL AND ST.STID > 0')
    UpdateObject = quServType
    GeneratorField.Field = 'STID'
    GeneratorField.Generator = 'GEN_SEVICES_TYPE'
    Left = 280
    Top = 16
    object qServTypeSTID: TIntegerField
      FieldName = 'STID'
      Origin = '"SERVICES_TYPE"."STID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qServTypeSTNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
    object qServTypeSTDESCR: TIBStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'STDESCR'
      Origin = '"SERVICES_TYPE"."STDESCR"'
      Size = 2048
    end
    object qServTypeSTTARIF: TIBBCDField
      DisplayLabel = #1058#1072#1088#1080#1092
      FieldName = 'STTARIF'
      Origin = '"SERVICES_TYPE"."STTARIF"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qServTypeSTDATEBEGIN: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'STDATEBEGIN'
      Origin = '"SERVICES_TYPE"."STDATEBEGIN"'
    end
    object qServTypeSTDATEEND: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096
      FieldName = 'STDATEEND'
      Origin = '"SERVICES_TYPE"."STDATEEND"'
    end
    object qServTypeSTNOTE: TIBStringField
      DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      FieldName = 'STNOTE'
      Origin = '"SERVICES_TYPE"."STNOTE"'
      Size = 255
    end
    object qServTypeSTTIMEENTER: TDateTimeField
      FieldName = 'STTIMEENTER'
      Origin = '"SERVICES_TYPE"."STTIMEENTER"'
    end
    object qServTypeSTTIMEEDIT: TDateTimeField
      FieldName = 'STTIMEEDIT'
      Origin = '"SERVICES_TYPE"."STTIMEEDIT"'
    end
    object qServTypeSTISDELETE: TIntegerField
      FieldName = 'STISDELETE'
      Origin = '"SERVICES_TYPE"."STISDELETE"'
      Visible = False
    end
    object qServTypeSTUSERENTER: TIBStringField
      FieldName = 'STUSERENTER'
      Origin = '"SERVICES_TYPE"."STUSERENTER"'
      Size = 40
    end
    object qServTypeSTUSEREDIT: TIBStringField
      FieldName = 'STUSEREDIT'
      Origin = '"SERVICES_TYPE"."STUSEREDIT"'
      Size = 40
    end
    object qServTypeSTTYPE: TIntegerField
      FieldName = 'STTYPE'
      Origin = '"SERVICES_TYPE"."STTYPE"'
    end
    object qServTypeSTEDIZMER: TIntegerField
      FieldName = 'STEDIZMER'
      Origin = '"SERVICES_TYPE"."STEDIZMER"'
    end
    object qServTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qServTypeSTTIME: TTimeField
      FieldName = 'STTIME'
      Origin = '"SERVICES_TYPE"."STTIME"'
    end
    object qServTypeSTPODRTYPE: TIntegerField
      FieldName = 'STPODRTYPE'
      Origin = '"SERVICES_TYPE"."STPODRTYPE"'
    end
    object qServTypeSTISARCHIVE: TIntegerField
      FieldName = 'STISARCHIVE'
      Origin = '"SERVICES_TYPE"."STISARCHIVE"'
    end
    object qServTypePODR: TIBStringField
      FieldName = 'PODR'
      ProviderFlags = []
      FixedChar = True
      Size = 13
    end
    object qServTypeSTPODR: TIBStringField
      FieldName = 'STPODR'
      Origin = '"SERVICES_TYPE"."STPODR"'
    end
    object qServTypeSTPERIODOPLATY: TIntegerField
      FieldName = 'STPERIODOPLATY'
      Origin = '"SERVICES_TYPE"."STPERIODOPLATY"'
    end
    object qServTypeSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"SERVICES_TYPE"."SDID"'
    end
    object qServTypeTREE_NAME: TIBStringField
      FieldName = 'TREE_NAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qServTypeSTSYSPODR: TIntegerField
      FieldName = 'STSYSPODR'
      Origin = '"SERVICES_TYPE"."STSYSPODR"'
    end
    object qServTypeSTSDIDTABEL: TIntegerField
      FieldName = 'STSDIDTABEL'
      Origin = '"SERVICES_TYPE"."STSDIDTABEL"'
    end
    object qServTypeSTISCALCGRAF: TIntegerField
      FieldName = 'STISCALCGRAF'
      Origin = '"SERVICES_TYPE"."STISCALCGRAF"'
    end
    object qServTypeSTMAXCOUNT: TIntegerField
      FieldName = 'STMAXCOUNT'
      Origin = '"SERVICES_TYPE"."STMAXCOUNT"'
    end
    object intgrfldServTypeSTSDIDDOPUSL: TIntegerField
      FieldName = 'STSDIDDOPUSL'
      Origin = '"SERVICES_TYPE"."STSDIDDOPUSL"'
    end
    object qServTypeSTTIMEBEGIN: TTimeField
      FieldName = 'STTIMEBEGIN'
      Origin = '"SERVICES_TYPE"."STTIMEBEGIN"'
    end
    object qServTypeSTTIMEEND: TTimeField
      FieldName = 'STTIMEEND'
      Origin = '"SERVICES_TYPE"."STTIMEEND"'
    end
    object qServTypeTABEL_NAME: TIBStringField
      FieldName = 'TABEL_NAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qServTypePROBA: TIntegerField
      FieldName = 'PROBA'
      ProviderFlags = []
    end
    object qServTypeLL_LIST: TMemoField
      FieldName = 'LL_LIST'
      ProviderFlags = []
      BlobType = ftMemo
      Size = 8
    end
    object qServTypeSTNAME_CLIENT: TIBStringField
      FieldName = 'STNAME_CLIENT'
      Origin = '"SERVICES_TYPE"."STNAME_CLIENT"'
      Size = 255
    end
    object qServTypeSTDURATION: TIntegerField
      FieldName = 'STDURATION'
      Origin = '"SERVICES_TYPE"."STDURATION"'
    end
    object qServTypeSTWEEKCOUNT: TIntegerField
      FieldName = 'STWEEKCOUNT'
      Origin = '"SERVICES_TYPE"."STWEEKCOUNT"'
    end
    object qServTypeIS_NOT_IN_TERRITORY: TSmallintField
      FieldName = 'IS_NOT_IN_TERRITORY'
      Origin = '"SERVICES_TYPE"."IS_NOT_IN_TERRITORY"'
    end
  end
  object quServType: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  STID,'
      '  STNAME,'
      '  STNAME_CLIENT,'
      '  STTYPE,'
      '  STEDIZMER,'
      '  STDESCR,'
      '  STTARIF,'
      '  STDATEBEGIN,'
      '  STDATEEND,'
      '  STTIME,'
      '  STNOTE,'
      '  STISDELETE,'
      '  STUSERENTER,'
      '  STTIMEENTER,'
      '  STUSEREDIT,'
      '  STTIMEEDIT,'
      '  STPODRTYPE,'
      '  STISARCHIVE,'
      '  STPODR,'
      '  STPERIODOPLATY,'
      '  SDID,'
      '  STSYSPODR,'
      '  STSDIDTABEL,'
      '  STISCALCGRAF,'
      '  STMAXCOUNT,'
      '  STSDIDDOPUSL,'
      '  STTIMEBEGIN,'
      '  STTIMEEND,'
      '  STDURATION,'
      '  STWEEKCOUNT,'
      '  IS_NOT_IN_TERRITORY,'
      '  SDNAME,'
      '  PODR,'
      '  TREE_NAME,'
      '  TABEL_NAME,'
      '  PROBA,'
      '  LL_LIST'
      'from SERVICES_TYPE '
      'where'
      '  STID = :STID')
    ModifySQL.Strings = (
      'update SERVICES_TYPE'
      'set'
      '  IS_NOT_IN_TERRITORY = :IS_NOT_IN_TERRITORY,'
      '  SDID = :SDID,'
      '  STDATEBEGIN = :STDATEBEGIN,'
      '  STDATEEND = :STDATEEND,'
      '  STDESCR = :STDESCR,'
      '  STDURATION = :STDURATION,'
      '  STEDIZMER = :STEDIZMER,'
      '  STID = :STID,'
      '  STISARCHIVE = :STISARCHIVE,'
      '  STISCALCGRAF = :STISCALCGRAF,'
      '  STISDELETE = :STISDELETE,'
      '  STMAXCOUNT = :STMAXCOUNT,'
      '  STNAME = :STNAME,'
      '  STNAME_CLIENT = :STNAME_CLIENT,'
      '  STNOTE = :STNOTE,'
      '  STPERIODOPLATY = :STPERIODOPLATY,'
      '  STPODR = :STPODR,'
      '  STPODRTYPE = :STPODRTYPE,'
      '  STSDIDDOPUSL = :STSDIDDOPUSL,'
      '  STSDIDTABEL = :STSDIDTABEL,'
      '  STSYSPODR = :STSYSPODR,'
      '  STTARIF = :STTARIF,'
      '  STTIME = :STTIME,'
      '  STTIMEBEGIN = :STTIMEBEGIN,'
      '  STTIMEEND = :STTIMEEND,'
      '  STTYPE = :STTYPE,'
      '  STWEEKCOUNT = :STWEEKCOUNT'
      'where'
      '  STID = :OLD_STID')
    InsertSQL.Strings = (
      'insert into SERVICES_TYPE'
      
        '  (IS_NOT_IN_TERRITORY, SDID, STDATEBEGIN, STDATEEND, STDESCR, S' +
        'TDURATION, '
      
        '   STEDIZMER, STID, STISARCHIVE, STISCALCGRAF, STISDELETE, STMAX' +
        'COUNT, '
      
        '   STNAME, STNAME_CLIENT, STNOTE, STPERIODOPLATY, STPODR, STPODR' +
        'TYPE, STSDIDDOPUSL, '
      
        '   STSDIDTABEL, STSYSPODR, STTARIF, STTIME, STTIMEBEGIN, STTIMEE' +
        'ND, STTYPE, '
      '   STWEEKCOUNT)'
      'values'
      
        '  (:IS_NOT_IN_TERRITORY, :SDID, :STDATEBEGIN, :STDATEEND, :STDES' +
        'CR, :STDURATION, '
      
        '   :STEDIZMER, :STID, :STISARCHIVE, :STISCALCGRAF, :STISDELETE, ' +
        ':STMAXCOUNT, '
      
        '   :STNAME, :STNAME_CLIENT, :STNOTE, :STPERIODOPLATY, :STPODR, :' +
        'STPODRTYPE, '
      
        '   :STSDIDDOPUSL, :STSDIDTABEL, :STSYSPODR, :STTARIF, :STTIME, :' +
        'STTIMEBEGIN, '
      '   :STTIMEEND, :STTYPE, :STWEEKCOUNT)')
    DeleteSQL.Strings = (
      'update SERVICES_TYPE'
      'set'
      '  STISDELETE = 1'
      'where'
      '  STID = :OLD_STID')
    Left = 312
    Top = 16
  end
  object qmakeCopy: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select * from SP_MAKECOPY_SERVTYPE(:STID)')
    Left = 280
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'STID'
        ParamType = ptUnknown
      end>
    object qmakeCopyOSTID: TIntegerField
      FieldName = 'OSTID'
      Origin = '"SP_MAKECOPY_SERVTYPE"."OSTID"'
    end
  end
end
